HTBasic 9.3/HTBasic 9.3.iso/93win/data1.cab/DLL_Toolkit/Source/HTBMail/IMapi.cpp

C/C++ Source or Header | 2005-03-02 | 4.8 KB | 165 lines

/*************************************************************
HTBmail.dll

Copyright 1999 TransEra Corporation

htbmail.cpp

With help from http://www.codeguru.com/internet/imapi.shtml
*************************************************************/
#include "stdafx.h"
#include <mapi.h>
#include "imapi.h"
#include "export.h"

HINSTANCE CIMapi::m_hInstMail = (HINSTANCE) NULL;
BOOL      CIMapi::m_isMailAvail = (BOOL) -1;

CIMapi::CIMapi()
{
    m_error = 0;                                        //    Initially error free

    memset(&m_message, 0, sizeof(MapiMessage));
    memset(&m_from, 0, sizeof(MapiRecipDesc));
    m_message.lpOriginator = &m_from;
    m_from.ulRecipClass = MAPI_ORIG;

    if (m_hInstMail == (HINSTANCE) NULL)                //    Load the MAPI dll
        m_hInstMail = ::LoadLibraryA("MAPI32.DLL");

    if (m_hInstMail == (HINSTANCE) NULL){
        AfxMessageBox(AFX_IDP_FAILED_MAPI_LOAD);
        m_error = IMAPI_LOADFAILED;
        return;
    }

    ASSERT(m_hInstMail != (HINSTANCE) NULL);            //    Now get the pointer to the send function
    (FARPROC&) m_lpfnSendMail = GetProcAddress(m_hInstMail, "MAPISendMail");

    if (m_lpfnSendMail == NULL) {
        AfxMessageBox(AFX_IDP_INVALID_MAPI_DLL);
        m_error = IMAPI_INVALIDDLL;
        return;
    }

    ASSERT(m_lpfnSendMail != NULL);
}

CIMapi::~CIMapi() {
    if (m_hInstMail != (HINSTANCE) NULL)
        ::FreeLibrary(m_hInstMail);

    m_hInstMail = (HINSTANCE) NULL;

    free(m_message.lpFiles);
    free(m_message.lpRecips);
}

BOOL CIMapi::HasEmail() {
    if (m_isMailAvail == (BOOL) -1)
        m_isMailAvail = ::GetProfileInt(_T("MAIL"), _T("MAPI"), 0) != 0 && SearchPath(NULL, _T("MAPI32.DLL"), NULL, 0, NULL, NULL) != 0;

    return m_isMailAvail;
}

UINT CIMapi::Error() {
    UINT temp = m_error;

    m_error = IMAPI_SUCCESS;
    return temp;
}

BOOL CIMapi::AllocNewTo() {
    //    Allocate a new MapiRecipDesc structure and initialise it to all zeros
    m_message.lpRecips = (MapiRecipDesc *) realloc(m_message.lpRecips, (m_message.nRecipCount + 1) * sizeof(MapiRecipDesc));
    memset(&m_message.lpRecips[m_message.nRecipCount], 0, sizeof(MapiRecipDesc));

    ASSERT(m_message.lpRecips);
    return m_message.lpRecips != (MapiRecipDesc *) NULL;
}

BOOL CIMapi::To(LPCTSTR recip) {
    if (AllocNewTo()) {
        //    We succeeded in allocating a new recipient record
        m_message.lpRecips[m_message.nRecipCount].lpszName = (LPTSTR) malloc(strlen(recip) + 1);
        strcpy(m_message.lpRecips[m_message.nRecipCount].lpszName, recip);
        m_message.lpRecips[m_message.nRecipCount].ulRecipClass = MAPI_TO;
        m_message.nRecipCount++;
        return TRUE;
    }

    m_error = IMAPI_FAILTO;
    return FALSE;
}

BOOL CIMapi::Cc(LPCTSTR recip) {
    if (AllocNewTo()) {
        //    We succeeded in allocating a new recipient record
        m_message.lpRecips[m_message.nRecipCount].lpszName = (LPTSTR) malloc(strlen(recip) + 1);
        strcpy(m_message.lpRecips[m_message.nRecipCount].lpszName, recip);
        m_message.lpRecips[m_message.nRecipCount].ulRecipClass = MAPI_CC;
        m_message.nRecipCount++;
        return TRUE;
    }

    m_error = IMAPI_FAILCC;
    return FALSE;
}

BOOL CIMapi::Attach(LPCTSTR path, LPCTSTR name) {
    //    Add a new attachment record
    m_message.lpFiles = (MapiFileDesc *) realloc(m_message.lpFiles, (m_message.nFileCount + 1) * sizeof(MapiFileDesc));
    memset(&m_message.lpFiles[m_message.nFileCount], 0, sizeof(MapiFileDesc));

    ASSERT(m_message.lpFiles);

    if (m_message.lpFiles == (MapiFileDesc *) NULL) {
        m_error = IMAPI_FAILATTACH;
        return FALSE;
    }

    m_message.lpFiles[m_message.nFileCount].lpszPathName = (LPTSTR) malloc(strlen(path) + 1);
    strcpy(m_message.lpFiles[m_message.nFileCount].lpszPathName, path);

    if (name != (LPCTSTR) NULL) {
        m_message.lpFiles[m_message.nFileCount].lpszFileName = (LPTSTR) malloc(strlen(name) + 1);
        strcpy(m_message.lpFiles[m_message.nFileCount].lpszFileName, name);
    }

    m_message.nFileCount++;
    return TRUE;
}

BOOL CIMapi::Send(ULONG flags) {
    CWaitCursor wait;
    int            offset = m_text.GetLength();

    //    Add 1 space per attachment at the end of the body text.
    m_text += CString(' ', m_message.nFileCount);

    //    Set each attachment to replace one of the added spaces at the end of the body text.
    for (UINT i = 0; i < m_message.nFileCount; i++)
        m_message.lpFiles[i].nPosition = offset++;

    m_message.lpszNoteText = (LPTSTR) (LPCTSTR) m_text;    //  Set the body text

    int nError = m_lpfnSendMail(0, (ULONG) g_hBasicWindow, &m_message, MAPI_LOGON_UI | flags, 0);

    //    Now free malloced recipients
    for (i = 0; i < m_message.nRecipCount; i++)
        free(m_message.lpRecips[i].lpszName);

    //    Then free malloced attachments
    for (i = 0; i < m_message.nFileCount; i++) {
        free(m_message.lpFiles[i].lpszPathName);
        free(m_message.lpFiles[i].lpszFileName);
    }

    if (nError != SUCCESS_SUCCESS && nError != MAPI_USER_ABORT && nError != MAPI_E_LOGIN_FAILURE) {
        AfxMessageBox(AFX_IDP_FAILED_MAPI_SEND);
        return FALSE;
    }

    return TRUE;
}